Internet Pratica/IPRAT_01.iso/ASP/ASPapp Portal/admin_luMetro.asp

Text File | 2002-03-12 | 9KB | 363 lines

<!-- #include file="i_utils.asp" -->
<%

check_security(1)

%>
<%
    dim CityID
    dim MajorCity
    dim State
    dim edit_lumetro_sql
    dim view_lumetro_sql

sub request_edit_lumetro
''' request expected input parameters for this form
    CityID = request("CityID")
    MajorCity = request("MajorCity")
    State = request("State")
end sub
sub request_view_lumetro
''' request expected input parameters for this form
    CityID = request("CityID")
    MajorCity = request("MajorCity")
    State = request("State")
end sub

sub validate_edit_lumetro
''' request and validate data entered from this form
    CityID = trim(request("CityID"))
    MajorCity = trim(request("MajorCity"))
    State = trim(request("State"))
end sub
sub validate_view_lumetro
''' request and validate data entered from this form
    CityID = trim(request("CityID"))
    MajorCity = trim(request("MajorCity"))
    State = trim(request("State"))
end sub


sub db_select_edit_luMetro
    sql = "SELECT " & _     "CityID, " & _     "MajorCity, " & _     "State FROM luMetro" & _     " WHERE " & _     "luMetro.CityID = " & to_sql(CityID,"number") & ""
    on error resume next
    set rs = cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    elseif rs.EOF then
        b_results = false
    else
        CityID = rs("CityID")
        MajorCity = rs("MajorCity")
        State = rs("State")
    end if
    rs.Close
    on error goto 0
end sub
sub db_insert_edit_luMetro
    sql = "INSERT INTO luMetro" & _     "(" & _     "MajorCity," & _     "State" & _     ") VALUES (" & to_sql(MajorCity,"text") & "," & _     "" & to_sql(State,"text") & ")" & _     ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.Number <> 0 then
        b_error = true
    else
        set rs = cn.Execute("SELECT @@IDENTITY")
        CityID = rs(0)
        rs.Close
    end if
    on error goto 0
end sub
sub db_update_edit_luMetro
    sql = "UPDATE luMetro SET " & _     "MajorCity = " & to_sql(MajorCity,"text") & ", " & _     "State = " & to_sql(State,"text") & " WHERE " & _     "CityID = " & to_sql(CityID,"number") & ""
    'response.write sql
    on error resume next
    cn.execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_delete_edit_luMetro
    sql = "DELETE FROM luMetro" & _     " WHERE " & _     "CityID = " & to_sql(CityID,"number") & ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_select_view_luMetro
    view_luMetro_sql = "SELECT " & _     "CityID, " & _     "MajorCity, " & _     "State FROM luMetro" & _     ""
    if request("sortby") <> "" AND inStr(lcase(view_luMetro_sql),"order by") = 0 then view_luMetro_sql = view_luMetro_sql + " ORDER BY " & request("sortby")
end sub
sub db_update_view_luMetro
    sql = "UPDATE  SET " & _     "MajorCity = " & to_sql(MajorCity,"text") & ", " & _     "State = " & to_sql(State,"text") & ""
    'response.write sql
    on error resume next
    cn.execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_delete_view_luMetro
    sql = "DELETE FROM " & _     ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub

do_search = request("do_search")
''' request form keys
CityID = request("CityID")
''' request action
action = lcase(request("action"))
''' action case handler
select case action

case "select_edit_lumetro"
'  select the requested key record from database
if CityID <> "" then
    db_select_edit_luMetro
else
    b_error = true
    error_list.add "edit_edit_luMetro", "Specify record to select."
end if


case "insert_edit_lumetro"
'  request form data and insert a new record into database

validate_edit_lumetro
if not b_error then
    db_insert_edit_lumetro
end if



case "update_edit_lumetro"
'  request form data and update an existing database record
validate_edit_lumetro
if not b_error then
if CityID <> "" then
    db_update_edit_lumetro
else
    b_error = true
    error_list.add "update_edit_lumetro", "Specify record to update."
end if
end if


case "delete_edit_lumetro"
'  delete the requested key database record
if CityID <> "" then
    db_delete_edit_lumetro
    response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
    b_error = true
    error_list.add "delete_edit_lumetro", "Specify record to delete."
end if


case "update_view_lumetro"'  request form data from edit grid to update existing database records
'  this case is only created when a grid form's 'update' property is enabled
validate_view_lumetro
if not b_error then
if  then
    db_update_view_lumetro
else
    b_error = true
    error_list.add "update_view_lumetro", "Specify record to update."
end if
end if


case "delete_view_lumetro"'  request form data from edit grid to delete existing database records
'  this case is only created when a grid form's 'update' property is enabled
if  then
    db_delete_view_lumetro
    response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
    b_error = true
    error_list.add "delete_view_lumetro", "Specify record to delete."
end if


end select

'  no action was specified, so handle the default case(s)
if CityID <> "" then
    db_select_edit_lumetro
end if

db_select_view_lumetro

%>

This is the admistation area for the ''luMetro" lookup table. This table could be used to manage and orgranize information (links,conent,classifieds) by major metropolotian areas. This could also be used to create drop-down lists of the metro areas.
<P><br>
<%
display_errs
display_msg
%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
Metropolitian Areas Lookup
</td>
</tr>
</table>
<table  >
<form name="edit_luMetro" action="luMetro.asp" method="GET" >
<tr>
    <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=MajorCity" class=fieldFont title="">MajorCity</a></td>
    <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td>
</tr>

        <input type=hidden name="CityID" value="<% =CityID %>">

<tr>
    <td class='dataTD' >
        <input type=text  name="MajorCity" size="" maxlength="50" value="<% =MajorCity%>">
    </td>
    <td class='dataTD' >
        <input type=text  name="State" size="" maxlength="50" value="<% =State%>">
    </td>
</tr>
<tr>
    <td align=right class=dataTD colspan=3>
    <% if CityID = "" then %><input type=submit name=insert_button value=insert> <% end if %>
    <% if CityID <> "" then %><input type=submit name=delete_button value=delete onclick="document.edit_luMetro.action.value = 'delete_edit_luMetro'"> <% end if %>
    <% if CityID <> "" then %><input type=submit name=update_button value=update><% end if %>
    </td>
<input type=hidden name="action" value="<% if CityID <> "" then %>update<% else %>insert<%end if %>_edit_luMetro"></tr>

</form>
</table>


<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_luMetro_sql <> "" then
    cmd.CommandText = view_luMetro_sql
    rs.Filter = ""
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
luMetro
</td>
</tr>
</table>
<%

if results = true then

%>

<table  >
<form name="view_luMetro" action="luMetro.asp" method="GET" >
<tr>
    <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=CityID" class=fieldFont title="">CityID</a></td>
    <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=MajorCity" class=fieldFont title="">MajorCity</a></td>
    <td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=State" class=fieldFont title="">State</a></td>
</tr>
<%

do while not rs.EOF

':: read db record
on error resume next
CityID = rs("CityID")
MajorCity = rs("MajorCity")
State = rs("State")
on error goto 0

%>
<tr>
    <td class='dataTD' >
        <a href="luMetro.asp?CityID=<%=CityID%>"><% =CityID %></a>
    </td>
    <td class='dataTD' >
        <input type=text  name="MajorCity" size="" maxlength="50" value="<% =MajorCity%>">
    </td>
    <td class='dataTD' >
        <input type=text  name="State" size="" maxlength="50" value="<% =State%>">
    </td>
</tr>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>
<tr class=formtr>
    <td class=dataTD align=right colspan=3>
    <input type=submit name=update_button value=update>
    </td>
</tr>
<input type=hidden name="action" value="update_view_lumetro">

</form>
</table>
<%

else

%>



<%

end if

%>





<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>